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37 >K 

-7> V 


CONT 

□PO *, * /rliSTOP £11 J: ^ Tteit L/:7n A<7)^ 

Tr 4:#l5flT £. 

1 a a I cont 

1 g fflJ 1 CONT 


KEY LIST M 

i« r, 

ryig] 

i g gy 1 


77>^'>a > ; T—<7) (*!??&■ U ^ h f £>. 
KEY LIST 

KEY LIST 


MON _ 

n~wi 


NEW 


MON 

MON 


| M 

m | 


1 m 

it 

NEW 

FST 

“in 

NEW 

NEW 

1 ON ® 

I m 

HI 

Ng«-E 



TZ>o 

1 * 

si 

NEW 

1 g 

m 1 

NEW 


'J I!*)* 7 0^7 A<7)H*t£I53J£T*. 

— KL, *<7)7 

%. 

1) RUN [<Tr#-§->] 

2) RUN ?*> C.R) 

1) RUN 100 

2) RUN "2 : TEST" 


RUN 

BPS 


1 g m 1 


TERM 


I* «l 


TRON/TROFF M 

|« m I T - Q^7AOTS?m>(&4-;§8**S. 

■ It TRON 

TROFF 




S:F7U^E- Kl-T*. 

TERM *(CQM:H</N°ij7 L T>C<t'>y h>[<* h 7^7 h>«XON*T 
•y^>«S/\*7 >-?>[<DEL □- Kfe«>(<RET*-te*>C<MrCR 
=1- Ktea>«B*B'>7 m- K>K, 

TERM "COM : E72X".. 1000 


1 g fflJ I TRON 
TROFF 

K 


FILES/LFILES (f^^) M 
I fa fit | XT X^i:AoT0577< 7K7)^0fr, *S3I£;*:£ £ £^T*. 
|g ^ | 1JFILES «K7'f7f^» 
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2)LFILES (< K -7 -f 

ff] 1 files 2 
FORMAT (x-r**) (S) 

[ft ft l 7P7tVf^^«Mm(7^-77 iot*. 

[ft it I FORMAT < K 7 r#■§■> 

r3t fflJ I FORMAT 

KILL (7 , 'f SO 

[ft m i 

[ft it I KILL <7r UlsT* *<7 ') -/?> 

| £ fflj 1 KILL "2 : SAMPLE" 

MOUNT (tV*?) (SI 

lft ft 1 7* T ^S£S^ ^Itc/vT'IU^^x -f ^ & njft (- T 

*. 

I ft ^ I MOUNT «K7T7'i§>(,<K7T7S§>-)) 

I 3t ft 1 MOUNT 

NAME ( fa^) 8® 

I ft ft I t-V *?7 7-f 

1ft ^ I NAME <107 AS <ff7 7"f ;U£> 

I % flJ I NAME "SAMPLE" AS "SAMPLE 1" 

REMOVE (S) 

| ft ft 1 f^^t77-f ^KSg^-g ^iA/LT'-r-f £**7t *. 

L ft ^ 1 REMOVE C< K7-f 7'#-t>C,< K7^r 7'#^->--0] 

1 % ft I REMOVE 1 

SET (7^**) SIS) 

7 7'fJ^t-y h • ‘J-tr-y h 

1) SET < K7< r#-§->, 

2) SET <7 7-r^>,<*J114^:^*> 

3) SET # <7 ?T <*JSt££:£'> 

1) SET 1,"P" 

2) SET "2 : NOTWRITE", "P" 

3) SET #1, "R" 

BLOAD (Tl X?) S 

lft ft I iigTP^7A^P-Kti. 

lft it 1 BLOAD <7 7 -f A'7*T ^ ^ U 7 p ^>C, <n — K7 7 K P^>K, r ) 

I % fflJ 1 BLOAD "DEMO.BIN".R 

BSAVE (f^>» S 

I ft ft I *. 


B S 

ik «i 

BSAVE <7?<JUtV »J7'^>, 

BSAVE "DEMO.BIN" t &HOIOO .&H2FF 

CLDAD/CLOAD? ® 

a m 

rr~ *i 

1 )-fey h7 L -7'A't>y^'J^7 p a^7A$-p- Kr*. 
CLOAD <7 7 -f JU^fa) 

IK (i*) 1 

CLOAD? <7t7 7U£> 

CLOAD "DEMO" 

CLOAD? "DOMO" 

CSAVE 

(ED 

inn 

1 * *1 

i k m i 

hr-^-b-Tti 

CSAVE <77<j^> 

CSAVE "DEMO" 


lft ft I 


I g ft I 
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LOAD 

8® 

\m im 1 

un- KT*. 

1* st 1 

LOAD <7 7^ l )7?>[, R ) 

1 X All 

LOAD "CAS2 :TEST" 

LOAD? 

8 

rs~sn 

K-IEL < 

i«~sn 

LOAD? <77^1/f-f 7^ V T**) 

1 x «* 1 

LOAD ? "CAS2 : TEST" 

MERGE 

(r^x) 8® 

i «t sg i 

T’p^A&ji-g-t*,, 

1 » St 1 

MERGE <7 7 TA'-r^r 7^ U 

U ffni 

MERGE "2 : TEST" 

SAVE 

8® 

i « m i 

7 ^ IJ (7)BASICT , p^7 A $-7 7 ;u:t-7t4. 

1 * St 1 

SAVE <7 T’-OUt'-T 7 7 'J C,| A 1] 

1 X fill 1 

SAVE "2 : MYPROG", A 

if>r - 

V 37>F 

AUTO 

8® 

i nn 


l» SI 

AUTO )[,<**#>] 

rx eii i 

AUTO 100. 5 

DELETE 

8® 

i t»~sn 


i» fl 

DELETE 

1 X W 1 

DELETE 10230 

EDIT 

8 

i a be 1 


IS si 

EDIT <n#-^> 

i x m i 

EDIT 30 

LIST / LLIST 8® 

i #nri 

/ U F*3l-£>&7 □ ^7 A(7)±gfl3: fcli—7 h7' 

LJ *J 

1)LIST «*t*#>H-<*t**» 


2)LLIST «*r**>H-<fr##>] 

1 X fill 1 

LIST 100 200 

LIST. 

RENUM 

8® 

rm 

7 p ^7 A <75 *T## tr 1 * . 

l« *1 

RENUM C<«fTf#^»(,<l0^r##>]C f <^>] 

x fill! 

RENUM 


~~t3 h|j ^ 

Xt- h ^ > h 

CLEAR ® ® 

i & m i <t c/> -e >j $n&(D izjtztz. 

I » 5t I CLEAR (<^£-A7y-^»(,<>tU0l|S»( f a^*^^ 

#$>](, <E?Ux-*^#0):*: # $ >] 

[ % fflj 1 CLEAR. &H3000 
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COMMON ( tix ?) ® 

II II ^^' r - 

I ft xt I COMMON <£&£>(, <£&£>•••;! 

IS ffJ I COMMON A, B,XY(), NAS 

DATA ® 0 

□1 E READ*Tl3!*iAS*i*&fiI f S^£&$rtelrtT*. 

1 * a I DATA <$&>(, <£»>•;) 

I % fflJ 1 DATA 1. NEC. 9800 

DEF FN S 0 

1 ft 3E | 3.--tf-dJi-pTfTbti/rWSl^^lSE-r 

Lf_5jU DEF FN<£]fr>(h>))=<M^(7)$ISxt> 

IS #J I DEF FNA(X, Y) =X*2 +Y* 3 


DEFINT/SNG/DBL/STR 

II fM ^cnm’S.w^t i>. 


1ft ai def 


IS fflJ 1 


INT 
SNG 
DBL 
STR 

DEFINT A. I K 


<s^<7>iss> C, 



I ft se I z ^^u^utijn yax*. 

I ft it I DIM <£&£> C,<^(7)«^fI>- 0) 

IS fflJ I DIM A( 12. 2) 


END B ® 

[® aE~l ;/p ^7 $-lfT4. 

I ft xt 1 END 

1 S fflJ 1 END 

ERASE B 0 

I m m I se5U5:^4-;^-r *. 

I m it i erase <Be*u£&£>(,<K5ijs:&£>---;) 

j S fflJ I ERASE C.D 

KEY ® ® 

I ft bE I * —«tf — K60Jbse(- * 7P ^777^ • 7?>^ya >4r-0)l*9§ 

I ft xt I KEY <*-#-§->, <^C^5IJ> 

IS ft I KEY 1. "LOAD" 

OPTION BASE ® 

1ft IE I Efl«**0>TR*MT*. 

[ ft it] OPTION BASE I 0 I 


[ 5t ft 1 OPTION BASE 1 

RANDOMIZE ® 

I ft bE I m U.'SL»*5U *. 

1 a ^ 1 RANDOMIZE «a» 
j S fflj | RANDOMIZE 

REM ® 0 

I ft ft 1 7o77Ai:;i^U ti*. 

I ft it I REM 

I S ffl] 1 REM TESTPROGRAM 

' TESTPROGRAM 
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RESTORE 




READ* X-m V DATA £ £ £. 

RESTORE 

RESTORE 800 


DATES ® 0 

Itt ail 

I gr & I DATES 
1 % fflJ 1 D$ =DATES 


FRE 8 (SI 

l m~ as I >t'j 

n ^ i fre «mm» 

1 % fflJ 1 PRINT FRE(O) 


TIMES 


l« 

fii 1 

1 * 



lx 

m | 



1) TIME$ 

2) TIME$ = *HH : MM : SS" 

PRINT TIMES 


** 1 * 0 * 1 * 

x-j — Y t > Y 

CHAIN (T4 X?) 8 

\m ft 1 

1 m a 1 CHAIN (MERGE)<7 7 <;Ux<;** V7*>C,<^#^>H.ALL) 
C,DELETE<||5S]>] 

1 % gy I CHAIN MERGE "1 : TEST", 500, ALL, DELETE 500-600 


FOR- - TO - - STEP - NEXT S 0 

1 fil Bt 1 FOR^fr'bNEXT** 

TZ>. 

1 g it | FOR TO [STEP <*%&> ) 

\ 

NEXT [[<£»«»(. <Xa«») 

| % ffl] I FOR J = 0 TO 100 STEP 2 

■ 

NEXT J 

GOSUB RETURN 8 S) 

g k 1 gosub <*t#-§-> 

RETURN 

I 3t flII GOSUB * GOOD 


GOTO GO TO 8 0 

Mft fiE I 

I g it I 1 )GOTO <*r#-§-> 
2)G0 TO <fr#-§-> 

I % flJ I GOTO 500 


IF - THEN- - ELSE IF •••GOTO -ELSE lN ® 

[HE 

I m a i if 


[ELSE 


. THEN I <£> 

GOTO <fr#-§-> 

I % iff 1 IF AS = "Y" THEN * START ELSE 120 


<3t> h 
<fr#-g> | 


ON --GOSUB 'ON--GOTO 8 0 

I « 3S I *>. 
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* it 1 

ON <5fc> GOSUB 

ON <^> GOTO <Tr#-t>C,<^T#-^>-0 

nm 

ON A GOSUB 100.200.300,400 


ON A GOTO 100. 200. 300. 400 

STOP 

8® 

(* M 1 

Xp ^7 AtDUfr^iL L T n K 

[« A\ 

STOP 

1 3t i5>J 1 

STOP 

WHILE - 

WEND S 

l« w\ 

tiTi'*ra*lO& m'rtt *. 

r* si 

WHILE <|ftS5t> 


WEND 

l“x ml 

WHILE l>5 


WEND 

; & ^ 

/MrPr- nn t> 

Xx- 

h > h 

LET 

8® 

tt Be 1 


1 * SI 

(LET] <£»«> = <«> 

lx flj 1 

LET A= 10 

READ 

8® 

1 

DATAXJ: OfiSfctfc*. •) |X5. 

l« a| 

READ <£& i; ^ h > 

1 x »j 1 

READ A.B.C $ 

SWAP 

8® 

1 arm 

2o<7)£&<7)fii$ r 2:$!-f *. 

s 

SWAP <£&>,<£&> 

lx W 1 

SWAP AS, BS 

MSt 


ABS 

s® 

1S “HI 


L« S | 

ABS «&it>) 

IX (5'J 1 

B = ABS( —2) 

ATN 

s® 

1 (a TFl 

ffiJEg h) £-^;LS. 

1 * s | 

ATN «»*» 

1 x m l 

A=ATN( | ) 

CINT 

8® 

i arm 

mm&nm a, fsfait nam* 0 

\m itl 

CINT «»5t>) 

IX m\ 

A% = CINT(Bs *2) 

CDBL 

S® 

1 ITU 


1 * A 1 

CDBL «ast» 

IX flij 1 

At? =CDBL(B ! 2) 
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COS 

8® 

rerun 

££ (alM >) *5*.*. 

L* si 

COS «&3t>) 

1 X M 1 

C = COS (3. 1415 2) 

CSNG 

8® 

' es 3§ 1 


l» s| 

CSNG «»*» 

l x m 1 

A ! = CSNG(Bs) 

CVI CVS 

CVD S (S) 

ie» an 


l« si 

1) CVI«2X^WX^5U» 

2) CVS(<4X^ct)^:^5IJ>) 

3) CVD(<8^;^c7)^:^5IJ>) 

1 X ff] 1 

1) A% = CVI (AS ) 

2) B = CVS ("A3Bd" ) 

3) Cit=CVD (NUMS) 

EXP 

8® 

i erm 


l* s| 

EXP «a^» 

IX Ml 

E=EXP( 1 ) 

FIX 

8® 

rani 


IS it 1 

FIX «ft^» 

IX M 1 

F = FIX(B 3) 

INT 

8® 

cam] 

'JMBkMiMT *V\ 0 ttT * *. 

1 c si 

INT «&:*>) 

rx mi 

PRINT INT ( 1. 123) 

LOG 

8® 

1 et^m 


1 > si 

log «a^» 

IX Ml 

PRINT LOG(35 9) 

RND 

8® 

let 3n 

SL ®*5pL*. 

S3] 

RND C(<*Jt5t>)D 

IX Ml 

R = RND( 1 ) 

SGN 

8® 

1 m~W\ 

£ D§ ^ . 

1 * S.l 

SGN «»*» 

IX $J 1 

PRINT SGN (A) 

SEARCH 

8 

1 ttt 36 1 

b$s% ttitzmtm Ltini cnwmi- > 

1 * S 1 

SEARCH «ge5IJ£&£>, <M*S* W<->] 

IX Ml 

NUM = SEARCH (A%, 100,0,3) 

SIN 

8® 

\w~w\ 

JE& (1M>) *5-7.*. 

r* s i 

sin «a^» 

' X 01)1 

PRINT SIN( 1 ) 
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SOR 

8® 

[ ft M 1 

(*XxT-;U-h) 

r* a\ 

SOR (<&it>) 

[ x m l 

> 

II 

</) 

o 

^ro 

TAN 

8® 

r«an 

iE^ (X > v> x > h ) x. $ . 

r* *1 

TAN «Sit>) 

r x «ii 

A = TAN (123) 

X*aU*fMr« 

X 7- 

h >> h 

MIDS 

8® 

ns “in 

x^u^-sb*®^**. 


MID$ (<X^5iJ1> I <it1>C,<jt2>)) = <5c^5iJ2> 

lx ] 

MIDS (AS. 3) = " ABC" 

ms 

ASC 

8® 

arm 

X^^+^tXX a — K £-^x_ *. 

n-*i 

ASC «3C^?IJ» 

1 X 151 1 

A = ASC ("A") 

CHRS 

8® 

11* - hi 

+ K£ftoX^£-£x.*. 

Li *1 

CHRS «&;*>) 

lx ml 

AS = CHRS(65) 

HEXS 

8® 

1 a in 


rrai 

HEX$ «»*» 

[X flj I 

AS =HEXS (X) 

INSTR 

s® 

I mn 

X3=5iJ<7)4> *' b ft* coX^5iJ fcffi L T -t (^X^^iiS 

I* ai 

INSTR («»^>J<5C^5IJ1>.<X^5lj2>) 

|X <51 1 

J = INSTR (AS ,"J") 

LEFTS 

8® 

ift~in 

X^5IJ C7)£$J*' b EES <7)^ £ <7) X^^IJ £X. *. 

Li St I 

LEFTS «X^U>,<»^>) 

lx m\ 

BS = LEFTS (AS, 4) 

LEN 

8® 

l ft in 

*:•£**. 

1* *t! 

LEN «^:^5IJ>) 

1 X #J I 

PRINT LEN( AS ) 

MID$ 

s® 

ift in 

X?5U (7) 4> £' b fiS (D M $• <D X^IJ £ 5- X. * . 

Ea 

MIDS (<X^*IJ>, <it1>C.<5^2>)) 

1 X 151 1 

PRINT MIDS(AS, 2,3) 

MKIS MKSS MKDS ® ® 

l« fig 1 


IM *1 

1) MKI S (<^^^ie>) 

2) MKS$ «^^^^ie>) 
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3)MKD$ (<fg*?|£3Elfi» 

1 % ffTl 1)AS =MKIS(128) 

2) LSET B$=M<S$( 1.23) 

3) RSET C$=MKD $(3.141592654#) 

OCT S ® ® 

I * itl OCT $ «&:*>) 

1 % flJ I PRINT OCT $(A) 

RIGHTS 8® 

la ISl <?>;&»' b&Mn&Z *. 

I S it 1 RIGHTS «*^ 5 IJ> f <a^» 

| % fflJ I PRINT RIGHTS (A $.4) 

SPACE S ® ® 

1 fil Bel 

is it 1 spaces «a*» 

| % SJ I PRINT SPACES ( 10);"ABC" 

STRS 8 ® 

i a k 1 

i s a l str$ «»*» 

1 % fflJ I A $ =STR $ (123) 

STRINGS 8® 

la & 1 

Is it | STRINGS «it>, I I ) 

| <&5t> | 

I % ffj 1 A $ =STRING $ (10," + ") 

VAL S® 

It il 

IS it I VAL «*^SI» 

I % fflJ I A = VAL ("2") 

H*B**W*ftlB* 

AKCNVS (x+*^) ® 

la t El 2/<-r %. 

[ S it I AKCNVS « 3 C^ 5 U» 

1 % ffj 1 A $ = AKCNV S (B $ ) 

JISS (71*?) ® 

I a <S I 0*B*$*2«a-- KT**.*. 

IS it I JIS$ «^5U» 

1 g flj I A$ = JISS (B$) 

KACNV S (71 X?) S 

ia a i (I'M h£)£^i-£ 

| S it I KACNV $ « 5 C^IJ» 

| % fflj| A S = KACNV $ (BS) 

KEXT S (tW**) 8 

la I X?5ljW't’A' * i b I /<< fcfc'-'li, 2/<< H 

0 ff (t <7) ^ «b A' £•& £ Hi L T 5-Z. 5. 

Is it I KEXT $ « 5 c^ 5 IJ>,<aB 6 » 

1 g SI I AS =KEXTS (BS.1) 

KINSTR (x-f *2) 8 

l a & I B*Bg^*St'g^aito+**a:tLfcg^3l«r«LT*fl>g5:<& 
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I 

I • ft 1 KINSTR( «&;*>, 1 >, <£^*IJ2» 

B g] J = KINSTR(3. AS.Xt") 

KLEN (f^^) ® 

1 Jft bE I 0*I§£#c:£^J<7);£^»£.^/L*. 

I m it I KLEN «»50>C.<«II») 

I 3t fflJ 1 KLEN (As, 0) 

KMIDS (tW S 

1 & SM 0 £'at' T^IJ <7) 4» *' b ft.g (7) g $ C7) £ 5- tL *. 

1 g it I KMID$ (<5C^5U>,<5t1>C.<it2>)) 

I % fflj 1 KMID$ (AS, 4, 3) 

KNJS (x-f**) ® 

I « EE I K3C^IJ4«r£B*i§ I 

1 g it I KNJS «^5U>) 

I % fflj I KNJ$ ("4E7A") 

KTYPE (x<**) ® 

1 g it I KTYPE «»50>,<3t» 

1 % fflJ 1 KTYPE (AS. 5) 

H® 

Xt- h y > h 

OLS ® 

H& bE I 

I g St 1 CLS (<«*!» 

I % flj 1 CLS 2 

f I ] COLOR ® 

[ m. % 1 

1 g xt 1 COLOR «77>7y3>a-F>)(,</<7^77/F^7-» 

[.<*-*-* 7->H. <7 K*7->)[,<y\‘^-y 

h"E- K>) 

1 % flj | COLOR 7. 0. 0. 7 

f2) COLOR S 

I m m i 

I g it I COLOR (=(</\°U h #■§■>, Cfr x — 3 — K>)) 

f S flj I COLOR = (2,4) 

COLOR ® 

l <g at I 

I g it 1 COLOR «7? >^*>3 >n- K>) (, <7 7U* * 7 7 7 =1 - K>) 

(,<^77^ 

I % ffl I COLOR 5. 0. 1 

COLOR 1" ® 

1 &. wt\ 7T7 twffiizmfrtiKttK *. 

1 g it 1 COLOR@ (x If y.) - (x 2 , y 2 )(, <7 x >? *> 3 >□ - K>] 

1 3t fflJ 1 COLOR- (0,0) - (79.4), 2 

CONSOL E ® m 

1 & fit I x + 7 h®®(7)^E- . 

1 g it 1 CONSOLE «* * p (,<*? P -JMt&>H. <7 7 
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[* ffll 

CONSOLE 0, 25, 0, 1 

SCREEN 

8 

Ifit 86 1 

L*_SJ 

IX ®\ \ 

^7 7 y y K 

SCREEN C<®@^E- K>](,<I®7'f7f»( l <7^f<f7K 
C, <XY ^ 7° UT 

SCREEN 1.0. 0.7 

WIDTH 

1 f* 86 1 

1# S| 

8 

T'<j 7.7 7 T ;K-j^ L TX^<7)$S^ *. 

1) WIDTH <^>[,<^>) 

2) WIDTH <7? T JUxY 7^ l ) X£>, <1M7'> 

3) WIDTH #<7 7'OH^>,<7<X> 

1 X (5i) 

1JWIDTH 80, 25 


2) WIDTH "LPT1 : ",80 

3) WIDTH #1,100 

WIDTH 

i ® in 

L* SJ 

lx « 1 

® 

bs i- mmt * sc$ mft n t «?»* ss t *. 

WIDTH ««;»>)(, <fr»!>) 

WIDTH 80, 25 

VIEW 

8 

I m. &\ 

i« si 

1 x m l 

7 s Y 7XV'f@®_tT*ff>^FpI*£ (t: a— £ 

VIEW (Sx,, Sy,) —(Sx 2f Sy 2 )(, <««fe»[, 

VIEW(100. 30)-(200. 75).. 7 

WINDOW 

8 

1 fit 86 1 

Lf si 

1 X »J 1 

h U^TF-r * 9-JU Kii*rtWfS««r1SgTS. 
WINDOW (Wx,. Wy, ) —(Wx 2l Wy 2 ) 

WINDOW( —300, — 50) —( 100, 70) 

MSfe 


MAP 

i snn 

lx aj i 

8 

MAP «&=£ 1>. <«fi£>) 

SY1 =MAP (WY1, 1) 


7- + X h jlSAttl* 

XT’— h > > h 

INPUT 8 ® 

li il *. 

1**1 INPUT (<*Tb>T|> J*> | ; | )<Xtt> (,<«>-.) 

1 3t ffl | INPUT * Date"; A $ 

INPUT WAIT 8 

I & & I *-*- 

g it i input wait mhmn> t «^a>rhsc 0 > |; |) 

<£&£> [.<£»£>•••] 

| 3t ffll 1 INPUT WAIT 100. "Your name"; NAS 

KINPUT 8 

I & se i ss: l 0*atj- r *. 

1 g it I KINPUT <£&> 

| % fflj | KINPUT A$ 
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LINE INPUT SO 

| Eft EE I Ifrtr# (255X^lUrt) ~ t it < z. 

I S £ 1 LINE INPUT «*7n !>*•>;) <X^£»> 

IX fflJ 1 LINE INPUT "NAME"; NAS 

LINE IN PUT WAIT B 

I Eft EE I *-*- *. 

I S it 1 LINE INPUT WAIT <^f$fU]>, [<^0 h 5C*> | ; |) 

I X fflJ I LINE INPUT WAIT 50, "N0=",N0$ 

LOCATE B® 

I Eft ee I x=r* 

is *1 locate «X>K,<Y»(,<*-v^<7f» 

IX flj | LOCATE 10, 10 

PRINT S ® 

I Eft ee l x* 

IS ft I PRINT C<5t>-O 

IX ffJ I PRINT "ABC" 

PRINT U SING S ® 

1 Eft EE I X^£IJ, *. 

IS it | PRINT USING * <*t> 

C | : | <5t>“'K | : | ) 

IX SI I PRINT USING "##### t /'; A, B 

WRITE B 

I Eft EE 1 ®®^x-2 £ai;frT *. 

I g it I WRITE C<5t(7)5IJ» 

I X flJ I WRITE I *J.K;AS 

HH& 

CSRLIN B ® 

I Eft EE I 

| g it | CSRLIN 

1 % fflJ I Y = CSRLIN 

INKEYS B® 

I Eft EE 1 £ tiKlftilf zjux h 

Ml it 1 INKEY $ 

I X fflj I A $ = INKEY $ 

POS B ® 

I EE EE I x** h li®-L^^^(7 )*-v;u(7)7K 5 P14$ ; S-^^-2, 

I s a 1 pos « 5 t» 

IX ffl 1 p=pos (0 ) 

SPC B® 

I Eft EE I ffif *. 

Is it | SPC «»■*» 

IX ffJ I PRINT SPC( 10);A $ 

TAB B ® 

I Eft EE I * 

I > it I TAB «»*» 

lx jg] PRINT TAB(IO); "PC 9800" 
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N 88 -BASIC ?-7 7i^7r:nn^ 


X 7 “ Y * > Y 


CIRCLE 


□on 


DRAW 

\m he i 

1 < ai 

1 % ffl I 


«n(R)«-»<. 


CIRCLE (Wx. Wy) 

| STEP(x, y) | 


]) 


</\'U *y h #-^-2> 

HJ >^> 


CIRCLE (80. 80). 40. 4. 0. 0. 6.28 


8 

^77-f •y*fl&®r*7=i K5IJ (£3^IJ) CloT, *7-;u K£«Lh 
T*EH0*«&< 

DRAW<^^5IJit> 

DRAW"U50 R50D50L50" 


GET C» ® 

i» ifei **u->i**w^7 7-f •?*'<* 

\m it 1 get((&](S x,,s y ,)— |(Sx 2 ,sy 2 ) |, 

I STEP(x. y) | 

I % ff*J I GET(100, 50) —(130. 70). G% 

LINE ® 

Itt ffel nf:2jSWJi;it||^3l < . 

I m it 1 LINEC I (Wx lf Wy.) I )- I (Wx 2 , Wy 2 ) I (,</<U -y h #-§• I >) 
| STEP(x 1 ,y 1 ) | | STEP(x 2t y 2 ) | 

*■’ gp I H,| < 7 T >^ ^ T I ] 

</\'U ’y h #-§-2> 

I 3t flJ 1 LINE( 100. 100) -( 135, 100) . 7. . &HF99F 
( 1 ]PAINT ® 

I m &\ 

I m it 1 PAINT I (Wx. Wy) I (, <fc#6>]) 

| STEP(x. y) I 

1 % ffl | PAINT(-50. 120). 3. 4 

(2)PAINT ® 

1 m 3E 1 *ifc*«*#J£* 

I • ^ 1 PAINT I (Wx, Wy) I ,<*< ;u* h U 

| STEP(x. y) | 

1 % I PAINT(255, 120). TILE $ , 4. BACKS 
POINT ® 

[ Wl bE 1 Last Referenced Point(LP)£-2£f[-f *> . 

I m it I POINT I (Wx. Wy) I 

I STEP(x, y) I 

1 % .-gjJ P0INT( - 200. 30) 

PRESET ® 

1 » 3E I Hi®±(7)ffSi<7) K 7 h *- U -fe ‘V h t *>. 

I g it I PRESET I (Wx. Wy) |(,<au. v H§» 

| STEP(x, y) I 

1 % flJ I PRESET(100. 100) 

PSET ® 
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1 & ftE I IlD5Jt(7)fi&.fc<7) K "J \ "J h T 
I& it I PSET I (Wx, Wy) |( i <,<u* h #*» 

| STEP(x, y) | 

1 g fflJ I PSET(100. 100). 4 

PUT ^ S 

1 flfc bE 1 7^7 7 -f >y % 0 

1 * ^ 1 1)PUT(© )(Sx, Sy), <E51J3!&£>«^£* >/<->](. <^#>3 

C t <7^-7 7 ^7 , ^>' K^J7 —>, <'< "S 2 ? 7 0 > K^J 7 — >) 

2)PUTC@)(Sx. Sy). KANJI(<-I^=] - K>), [, 

(,<7^7^7')>K*7 —>, <'<y $ 9*7 0 > K* 7 —>) 

I 3 1 ffl\ 1 )PUT(100, 100). G%, PSET 

2)PUT(0, 0). KANJI( 12321) 

ROLL B 

1 m n\ ^7 7< ‘y*iH®£7?p-;u 

1 > it 1 ROLL (aT^KvMBOU^miRlKvhft)) 

t, | N n 

Y I 

I g W I ROLL 16 

HH& 

cupoint B 

| & hE 1 Last Referenced Pomt(LP)<7)f®%. 

I S it 1 POINT ««*!» 

1 g m 1 LX = P0INT(0) 

(2JP0INT B 

1 fo fiE 1 7^ U ->aMl_h<7>ftg* tlTl'i K "J h (7)£ $--** 

X. *. 

I & it I POINT(Sx, Sy) 

I g fflJ 1 C = P0INT(473. 120) 

VIEW 8 

Li 5tj VIEW««^» 

1 % fflJ 1 SX1 = VIEW(O) 


WINDOW B 

I & Rt 1 5!£<7)^ > 

1 * xt 1 WINDOW ««H|» 
I g fflJ I WY1 = WINDOW( 1 ) 


N-BASIC ^77^ 


X 7— Y ^ > Y 


GET: 



l« 

He | 

®®_L(7)ff.m<7)|5SiC7)+^ 7 ^ 1 £(*, K'X ^77^ 

5iJ^-fe-7'L 2 

r» 

JLl 

1 )GET [(a ) (x 1> y,)-(x 2 .y2) t <E9lJ«>C.G] 

2JGETC 6 ) A(X , . Y,) - ( X, . Y,). < EM * > 

LA 

W| 

GET ( (o ](50. 50)-(100. 80). A% 

LINE 


(ED 

| «l 

HI 

*, *&j£*;h.f:2.6rau***§|< 4^. 

L* 

SJ 

1) LINE <fr|jf5£>, (7?>^ya > P — K> 

2) LINE (X,. Y, ) —(X 2f Y 2 ). <3Sc^^lj> 

(,<77>7v a >3 - K>(, |B I )] 
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3)LINE (X,, Y,) —(X 2 ,Y 2 ),<mm>[,<77>?'>3 >=i- K> 

C. I B ID) 

I BF I 

1 S flJ I 1)LINE 7. 1 

2) LINE(0, 0) -(24. 79). "V". B 

3) LINE(0. 0) - (100. 50) ,PSET 

PRESET (ED 

I m m 1 i®±^^77<7^1I(X # Y)(7)K7 hfc'J-fe? h Lit. 

I m it 1 PRESET (X ( Y(,<77>^/3>3-l ? >)) 

I % flj 1 PRESET(100. 50) 

PSET ® 

I <1 I illottloK'y h$--t!7 
I * it I PSET(X, Y. (,<7?>^ya>3 - K>)) 

1 % fflJ I PSET(100. 50. 7) 

PUT(« ® 

Itt GET@3$2:X'ge^lJ^i^«^ ^ ^ ^ ^ K-y h^77^ 2*$-® 

| g a | 1)PUT@(X,. Y,)—(X 2 , Y 2 ), <K5B«>. <*#> 

2)PUT@A(X,.Y,)—(X 2 , Y 2 ), <i£$IJ£> 

1 % fflJ 1 PUT (o (50. 50) — (100. 80), A% 

mat 

POINT ® 

I M fiE I ftgLtSii: K-y MHz-v h 
I g it I POINT (X,Y) 

| % ffll 1 CL = P0INT(60. 60) 


7 °') >91 

^T-h ^ > h 

COPY ® 

1 g a i copy «mm» 

1 % flj 1 COPY 3 

LPRINT S ® 

l m % i 7'j>*iiflMRfcajar*. 

1 g xt I LPRINT «5t>-0 

1 % flJ I LPRINT "ABC" 

LPRINT USING S (50 

H& % I jfc^JlJ. »j|^Lfct^TW*t4. 

I g it I LPRINT USING <m&.MW1C ! £m;<&> 

( |; j <*>•••)( |: j) 

I X flj 1 LPRINT USING " £ # A, B 

WIDTH LPRINT S 

I m t&\ ru 

1 g it 1 WIDTH LPRINT <£$:&> 

| 3t flJ I WIDTH LPRINT 80 

LFILES, LLIST 
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M£S( 


LPOS 

s® 

It* sE 1 

^C7)y i; >^C7)-N*y 2 T 

|K S| 

LPOS «st>) 

1 X »J 1 

LPOS(O) 


7 7"f 


Xt- 


CLOSE 

s® 

i tt 8£ 1 

7 7^^^l:4. 

1 « *t 1 

CLOSE [( # )<7 t"T -MM§->C, C # 3< 7 7 T 

I sc m i 

CLOSE 

DSKO $ 

(T***> ®® 

i tt & 1 

x T * * l-*t L T (7)il«# £ 

liTH 

DSKO $ < K 7 T 7#-^>. (t-7i7 #-§■>, <|>77^ #-§■> 


<-tz72#-5§-> 

1 X $J 1 

DSKO $ 1. 0, 19. 1 

FIELD 

S® 

it* i 

• a'7 7 

IK Si 

FIELD C#)<7 7T;u#^>,<7<-;UKfS> AS <X^£&> 


(,<7t-;uK*1> AS <*«»>•••) 

1 X « 1 

FIELD# 1, 128 AS A$,64 AS B$,64 AS C$ 

GET 

8® 

i «nri 

7 7T7U4 j <7)x-^ <:/<«y7 7Cll*at;. 

1* s| 

GET C#]<XtT ^#-S§->(.<»» 

1 x m i 

GET 3. 5 

INPUT a 

S® 

I a M 1 

+ ;u7 j>< Jisfi'bnT-? 

1 * it 1 

INPUT #<7T"f;u#-§->, <£&>(, <£»>.] 

l x m 1 

INPUT # 1. A. B 

KILL (x T * ^) S® 

1 «t #1 1 

x< 77frb7 ;U«ril^T5. 

IK st 1 

KILL <7 7^^f'f7^U7 P ^> 

Lx ffll 

KILL *2 : SAMPLE* 

LINE INPUT# SO 

1 «! fig 1 

1*T±i* (2553St^lUF*9) fclKtTJ* - £ U < '>-y • ■ 


7 7-f 7UJ: OZfc^ai-Sc^&C. 

L» 3*1 

LINE INPUT# <7 7 T 7U#-^>, 

lx m\ 

LINE INPUT a 1.A* 

LSET RSET 8 ® 

1 « « 1 

7 7<^<777^f-^ 

1 * it 1 

LSET <*^M£&> = <£^IJ> 


RSET <5t^MSe»> = <x:^5ij> 

1 X (H 1 

LSET A S = *PC—9800* 


RSET A $ = "N88 —BASIC* 


name ( xt *?) 8® 

I ^ 1 XT 7 7"f JK7)£bu k’g.*. Z>. 


16 



























































1 g it I NAME <IB7 t"OU£> AS <^7 7^^) 

1 % W 1 NAME "SAMPLE" AS "SAMPLE 1" 

OPEN 8 ® 

i m m 1 77^^<. 

1 g it 1 OPEN <7 7 I' Jl/f-f 'J 7*?> CFOR<^E-K>] as ( #)<77^ 

I % J 1 OPEN "CAS1 : TEST" FOR INPUT A$ £ 1 

PRINT s 8 ® 

I bE 1 7-^>yt;i/7 JUdx-* $rUJ*T*. 

I g it 1 PRINT #<7 7-f;u#-§->.C<5t>-0 

1 % fflJ 1 PRINT # 2. A, B. C 

PRINTr USING- 8 ® 


i a m i 
1 ® stl 

»fii^»3tL/:gitT77-r;Kiw*-r*. 
PRINT# <7 7 'T USING <g^lJ^^^5IJ>;<it> 

C ; | <*>•••)( |: |) 

L* 

ffj | 

PRINT#2. USING "####" ;A 

PUT 

I m 

bE| 

8 ® 

a' 777^7-^ $-7 7MZg£fflT. 

I g 

l x 

it | 

flj | 

PUT (#]<7 7--OU#-g>(.<»» 

PUT :;3. 5 

SET (7-17^) 8® 

I m 

|g 

IE | 

jli 

7 7< >»Uilt4(7)-b-y h - •; -tZ -y h 

1) SET <K7'T7 

2) SET <7 z'T ;u£>, 

3) SET #<7 7-r;i/#-g>.<*JR1±3C^*> 

1 * 

n 

1 )SET 1. "P" 

2) SET "2 : NOTWRITE", "P" 

3) SET # 1, "R" 

WRITE s 

1 « a£ 1 

1 « *J 

m 

'>-'r>'> + J\,7 7'( £g£itiT. 

WRITE #<7r-f 7U#-t>(,<^<7)5IJ» 

l x 

ISI 

WRITE si. 1* J. K; AS 


HH& 

ATTRS (f^^) M 
U& bE I }^77^K 

I g it I attr$ 


K7'T7'(7)jlti$-^x.*. 


(< h'7<7'#f» 
(#<77^;H§» 
«77<^» 

PRINT ATTRS (1) 


DSKF (7 * -f * *) 8 ® 

I <g ft! I XT 7.^<7)St5c£-^x. *. 

|g itl DSKF «K7'r7#^>C,<«tE>]) 

1 % fflJ I PRINT DSKF(1) 

DSKIS ( fq^) 8® 

1 bE 1 7'f 7*9 trh ifi}£l7c<frt±i L dF*9^l t 

1 g it I 1)DSKI $ « K 7 -f 7'#-i§->. < h 7 -v #-§->, <-fe * 2 #-*§-» 

2)DSKI $ « K 7 < 7'#-§-> t <t-7i7 #-§->, < h 7 -y ^ #-*§-> 

I % 1 1)D$=DSKI$(2. 19. 1) 

2)DS=DSKI $ (2. 1. 19. 1) 


17 






















































EOF 

8® 

1 *s ~TTI 

77<;K7)^T3- K£-^x.*. 

[ S it 1 

EOF (<7 T 7 T 7U#-^->) 

1 £ flj 1 

IF E0F(1) THEN CLOSE 1 

FPOS 

8® 

1« TTI 

77^^ ft *5-HZ. 

1* S| 

FPOS (<77<^#§» 

1 X (51) 1 

HEAD = FP0S(4) 

INPUTS 

8® 

1 **~1F1 


rs si 

INPUTS (<3Sc^^>C, (#)<7 7T7U#-§->]) 

1 X 011 

WORDS = INPUT $ (6. 5 2) 

LOC 

8® 

1 (*~sn 

7 7 -f 7U + T<7) iftilft tS 314 ftg $• ^ X * . 

1 a s 1 

LOC (<7 7Y;i/Sf» 

1 x m 1 

LAST = L0C(2) 

LOF 

®® 

1 ts IT! 

7;? 

1 * SI 

LOF (<7 7 Y>iU#-§->) 

1 X tflj 1 

MAXREC = L0F(2) 


Xt- h ^ > h 

ERROR SO 

I & 1 17-M^y; aL,-K X 7 - §-§-<7)x —£1 * . 

I g St I ERROR <£&3II5> 

1 % fflj | ERROR 200 

HELP O N OFF STOP § 

[ & ^ 1 ^JUZf*-lZ J: *S)J0iA^<7)IT^T, »±t, feiL *-I£:£T *. 

\ m it 1 1)HELP ON 

2) HELP OFF 

3) HELP STOP 

I % m 1 HELP OFF 

KEY(n) ON OFF STOP (Nffi) 

I M fig 1 7? >? '> 3 >^r — lzj: $*ij 0 jA£,K7)jft-nj, giL, f?ih * . 

f * it I 1)KEY[(<^-#-§->)] ON 

2) KEY(( < 4 - —#■§•>)] OFF 

3) KEY((<*-#■§->)] STOP 
I % fflj I KEY ON 

ON ERR OR GOTO ® (N) 

□OB x 7 — h 7 v 7 frnjnfciz l, x-7 — — ^ ><7)|53$&fr £:£3gT 

I 8 it I ON ERROR GOTO <^##> 

I' 3t ffj I ON ERROR GOTO 1000 

ON HELP GOSUB S 

1 ft se I x z. 

la it 1 ON HELP GOSUB <fr#-§-> 

[ % ffj I ON HELP GOSUB 1000 
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ON KEY GOSUB ® 

1 m fiE I 77^va >*-lz «t 
I Sit | ON KEY GOSUB < rf #-§->[, <lT#-^>-) 

| jt fflj | ON KEY GOSUB 100.200.300.400 

ON STOP GOSUB S 

Mft SM * h 

Is it 1 ON STOP GOSUB <*T#-^> 

| % SJ I ON STOP GOSUB 100 

ON TIME S GOSUB ® 

f-xnmte'ntr&mtz. 

IS it I ON TIME $ =*HH: MM :SS" GOSUB <*r#-S|> 

| 3t fflJ I ON TIMES ="07 : 30 : 00" GOSUB * MORNINGCALL 


RESUME 

\m m\ 

n~^n 


IS Wl 




RESUME 


CO) 

NEXT 


<n#-§-> 

RESUME 0 
RESUME NEXT 
RESUME 1000 


STOP ON OFF STOP ® 

ns 6E 1 h 7y+-CJ: »jt, ftit *. 

I S it I 1)ST0P ON 

2) ST0P OFF 

3) ST0P STOP 

1 g W I STOP ON 

TIMES ON OFF STOP ® 

[ ®L fit, I ') J: *lJj0iA^<7)|T^J, Sit, ^it£I£:£T*. 

|S it I 1)TIME $ ON 

2) TIME $ OFF 

3) TIME $ STOP 

| 3t SI I TIME s ON 

BUS 

ERL ERR ® ® 

i til bE I lf:X7-(7)i7-^- KSCfi7-Ot4 L * 

I S it I ERL 

ERR 

53] el=erl 

ER = ERR 


RS-232C*Wtfr^ 

Xt- h > > h 


COM ON/OFF STOP 8 


|«! 

Bt I 

iifflil^*'b(7)tlJOiA^(7)|TaI f m. it, 

L* 

JgJ 

1)C0M[(n)) ON 



2)C0M((n)) OFF 



3)C0M[(n)) STOP 

1 * 

«T| 

COM ON 
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ON COM GOSUB 8 

I ft ffe 1 L tZ&f, Z&WJls-l-Xnfflfe 

£ . 

I * *1 ON COM ((n)) GOSUB <fr#S>C. «T«>)) 

I g ffH I ON COM GOSUB 1000 


Xt- M>h 

® ® 

I ft m. I F*gft*fc*-**-qjib-f. 

t ill beep «** 7 f» 

I g ft) I BEEP 

KPLOAD ® 

I i it 1 KPLOAD <m^~ i-K>.<ttttSE5««> 

L % flJ 1 KPLOAD & H7620, CHRPTN% 

MOTOR 8 ® 

I ft Bt I *-trv hx —yi^=>-^(7)^E-^(7)ON, OFF$-^J^l-r * 

I ft it I MOTOR C<^T-y^» 

1 % fflj | MOTOR 1 

PEN ON OFF STOP S 

1 ft Bt 1 7< h'O'UJ: *fiJ0iA^<7)|Tnr, »iL, teit*-I£:£T* 

I ft it 1 1)PEN ON 

2) PEN OFF 

3) PEN STOP 

1 % ffll PEN ON 

ON PEN GOSUB ® 

1*^ & 1 7-f iA*&if;u-^><7)P,g&fr£:s:f£T * 

I ft it 1 ON PEN GOSUB <*t#-5§-> 

1 % fflJ I ON PEN GOSUB * PENTEST 

OUT ®® 

I ft ft I 3 h Ul/<T h <7)x-£ 

I * it I OUT <*-h 7 K u>0,<5t> 

1 % flJ 1 OUT 64. 32 

WAIT 8 ® 

[ft ft I => > fzL-£<7)A2)**- h £^E-:£T fc/BJ, 7p;7xA<7)||fr$rfeiL 

t*. 

itt Al WAIT <#- h#^>,<it1>C.<xt2>] 

I g ft 1 WAIT 1.&H22. &H22 

nst 

DATE $ ® ® 

I ft ft I Btt*4**. 

I DATES 

I 3t fflJ I D $ =DATE S 

INP ® ® 

I ft ft I \ij*- hfrbmknz. 

1 ft inp «*-►*#» 
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1 x m 1 

A = INP(15) 

PEN 

8 

; m f & 1 

7-T h 'Ot> s b(n\%W.k-5-z. *> 

g | 

PEN ««ftfi&» 

IX Hi 

X=PEN(1) 

TIMES 

8® 

rt* hi 

p -y ?<7)8S£I] 

1* *1 

1 )TIME $ 


2)TIME $ = *HH : MM : SS" 

i x en 1 

PRINT TIMES 


Xf -Y *>Y 

CALL S 

1 > it I CALL <M€>(«Sltt>C.<3ltt>-))) 

I'X gf| CALL MSUBR (ARG1. ARG2) 

DEF SEG S 

| m Rc 1 

in it 1 DEF SEG = <-b^y > h 7Kl^*> 

[ % ffij | DEF SEG = &H0100 

DEF USR S® 

I m as I 

II ^1 DEF USR(<##>) = <M*&#ife> 

IX fflJ 1 DEF USR3= &HFOOO 

POKE 8 0 

| m. m I ^rS^iAC. 


r* ai i )poke .n 8H 

2)POKE <*«&>, <£&*£>(. V).N 

1 X I POKE &HFOOO. &HFF 





[ * it I 1)PEEK(<#ife>).N 88 

2)PEEK(<#ife>C,V]).N 

| X fflj | A = PEEK(&HAOOO) 


USR 8® 

i m 3E I 

| n k I USR««>K<3ltt» 

I X m~\ 1 =USR3(J) 

VARPTR S ® 

1 & be I siawttw?7 7 'T;uusijo b nxi'57 
-;ut*p -y X <7) 

I g it 1 1 )VARPTR «£&£>(, <&&>;)) 

_2)VARPTR( #<77^m> C. <MhI> ]) 

I % fflJ I 1 )PRINT HEX $ (VARPTR(A. 1)) 

PRINT HEX$ (VARPTR(A)) 

2)BSG% = VARPTR (*r 1. 1) 

BAD% = VARPTR (#1) 
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X7-3-K 


X 7 — y v i z — V 

□ —K 

m * 

Bad allocation table 

64 

69 

7 r 4*'ry h 

Bad drive number 

65 

70 

4'^oTl'^L' K7< 7 frht’fc L tz'. 

Bad file data 

25 

7 T -f JU-hl hit-3 
Tl'£ 

Bad file name 

62 

56 


Bad file number 

52 

52 

j|$LTl'4’l'7 7’-OUfc#JBLfc. 

Bad file mode 

54 

v— 7>'> * 7UT* — 7*> L /: 7 7 -f 7KI 

L T 7 > 7'A 7 7 -tz 7 £ L J: o £ L 

Bad track sector 

66 

71 

h 7 -y 7, -tz7 
(DSKO$, DSKI$) 

Can’t continue 

17 

17 

CONT^dJ: oTfUr^-SMT*:: ttf 
T2 l'. (;JW 

Communications Buffer 

Overflow 

27 

/U i2 Hft ts £ (7) A ft 77 (7) / <-y 7 r#*- / < 

— 7 □ — L . 

(N 88 -BASICXiiLine buffer overflow) 

Deleted record 

67 

72 

>8 *58*0) un-K£7?-tz7L«M£L 
tz. 

Direct statement in file 

63 

57 

77*-^it<7)7 

Disk BASIC feature 

26 

t-w 7 

^ BAS 1 C (7) op t? L tz. 

Disk full 

60 

68 

X-f 7? — 7* < &l'(7)(I 

£ L tz. 

Disk I/O error 

57 

64 

T4 7 7 + 

- £ Ut 

Disk offline 

73 

62 

AititKn*jmKW&.XK\.'T 4 7 7 £7? 

t7Lj:nL/:. 

Division by Zero 

11 

11 

0 (I J: SfiJO W*'HtT?nT. ^(77i{g^(7) 
{!***—/<— 7 Q-Lfc. 

Duplicate Definition 

10 

L tz. 

(N-BASICTiiFtedimensioned array) 

Duplicate ladel 

31 

Is) L 7 ^u€*« 2 oUUi^ft LTt‘4 

Feature not available 

33 

* ij ffl ^ * mm tz. 

FIELD overflow 

50 

50 

FIELDS (I fi l ' T 256/ <-Y 
pS#£7b£ L tz. 

File already exists 

58 

65 

NAME* II J: oT^ 
toZttmzttLTl'Z. 

File already open 

55 

54 

ELizx—-7>$tix\.'Z>7 ;m*tLT 

OPEN, Klll.UZtn'fTLtz. 

File not found 

53 

53 

LOAD, SAVE. K\\JLUZXl%(£<n74 7 7 C 
^4L^A'7 7'f^^ltL/:. 
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17 — 77t —y 

□ — K 

m 

File not open 

71 

60 

it Liz. 

File write protected 

72 

61 

» £ b tlX 7 7 T 

n t Liz. 

FOR without NEXT 

26 
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